home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1994 2nd Q2 / The Association of Shareware Professionals - The Official ASP Advantage (2nd Quarter)(1994).bin / files / progming / bt / drawbox1.bas < prev    next >
Encoding:
BASIC Source File  |  1987-09-29  |  849 b   |  34 lines
  1. 10 DIM CORNER(4)
  2. 20 KEY OFF
  3. 30 W = 15 ' width of box
  4. 40 H = 6 ' height of box
  5. 50 DATA 205, 186, 201, 187, 188, 200
  6. 60 READ HORIZ, VERTICAL
  7. 70 FOR I = 1 TO 4
  8. 80 READ CORNER(I)
  9. 90 NEXT
  10. 100 X = 0
  11. 110 WHILE X < 1 OR X > 25 - H
  12. 120 INPUT "Upper left row";X
  13. 130 WEND
  14. 140 Y = 0
  15. 150 WHILE Y < 1 OR Y > 80 - W
  16. 160 INPUT "Upper left column";Y
  17. 170 WEND
  18. 180 COLOR 15,1
  19. 190 CLS
  20. 200 LOCATE X,Y
  21. 210 PRINT CHR$(CORNER(1));      ' top line
  22. 220 FOR I = 1 TO W-2 : PRINT CHR$(HORIZ); : NEXT
  23. 230 PRINT CHR$(CORNER(2));
  24. 240 FOR J = 1 TO H - 2    ' create middle section
  25. 250 LOCATE X+J,Y
  26. 260 PRINT CHR$(VERTICAL);
  27. 270 FOR I = 1 TO W-2 : PRINT CHR$(32); : NEXT
  28. 280 PRINT CHR$(VERTICAL);
  29. 290 NEXT
  30. 300 LOCATE X+H-1, Y
  31. 310 PRINT CHR$(CORNER(4));      ' bottom line
  32. 320 FOR I = 1 TO W-2 : PRINT CHR$(HORIZ); : NEXT
  33. 330 PRINT CHR$(CORNER(3));
  34.